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