Something like this would do it:

my $line = '';
while( <$fh> ) {
    next if m[^//];
    $line .= $_;
    if( $line =~ m[;\Z]m ) {
        ## process line or push ta a array
    }
}
[download]