use strict;

my @lines=grep(/;/, <DATA>);

print pop @lines;

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