use 5.010;
use strict;
use warnings;

use Inline::Files;

while (my $line = <FILE>) {
	chomp $line;
	say $line if ($line !~ /^\w/);	
}

__FILE__
hello world
Ì«Ñô
ÔÂÁÁI
I am an boy