Help for this page
$filename = "~/madam"; $filename =~ s{ ... }ex; print $filename, "\n";
#!/usr/bin/perl ... $file }