use strict;

my $lastline;

while (<DATA>) {
    $lastline = $_ if /;/;
}
print $lastline;

__DATA__
This is not the right line
This is OK, it contains a ;
This is no good either
Hey, a ; in this line!
Drop this.