for my $fname (@files)
{
  if( $fname=~/regex/ )
  {
    verschiebe($fname, $von, $nach);
  }
  elsif( $fname=~/regex/ )
  {
    verschiebe($fname, $von, $nach);
  }
  #...