$str="himanshu.txt^@";
if($str =~ /(\w+)\.(\w+)/) {
    $str = "$1.$2";
}