Select Code to Download

#!/usr/bin/perl -w
use strict;
...
 Faith tent this is a problem right?';
$words =~ s/\b(t[^t\s]+t)\b/$1 eq "test" ? $1  : ''/ge; 
print $words;

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print