...
while ($file = <*.las>) {
	open(FILE, "$file") || warn "Warning: can't open $file, skipping...\n";

        while (<FILE>) {
            chomp;
            if (/\b($info)\s*\./) { print $_}
            ...
        }
}
...