Select Code to Download

if ($name =~ s/^r.wpi//i) { print ("$name fits\n"); }
else                      { print ("$name does not fit\n"); }

my $name = "ipw.raxwgorga";

...
{
    $name = "r.wpi".$name;
};