if($[ < 5.008000) { $tmpfile =~ /^(.*)$/; $tmpfile = $1; }