while(my $line = <$FILE>){
	$line =~ s/\s+$//;
	if ($line =~ /(^\w+)/){
	...
    }
}