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

##</code><code>##

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

##</code><code>##

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