Select Code to Download

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

if ($str =~ s/\0$//) {
    print "found NUL byte at the end of '$str'\n";
}