Select Code to Download

$restofline = "One fish two fish red fish blue fish";

    while($restofline =~ m/(.*)fish(.*)/)
    {
...
        
        #.... do some mighty magic
    }

$restofline =~ m/fish(.*)/