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