c:\@Work\Perl\monks>perl -wMstrict -le
"my $filename = 'foo.xyphase';
 print qq{'$filename'};
 ;;
 $filename =~ s/.phase$//;
 print qq{'$filename'};
"
'foo.xyphase'
'foo.x'