use warnings;
use strict;

while (<DATA>) {
    my ($msg, $line) = /((?:(?!\bat\b).)*)(.*)/;
    print "$msg\n   $line\n";
}

__DATA__
This is my text at noname2.pl line 4.

##</code><code>##

This is my text 
   at noname2.pl line 4.