my $pdbline = <IN>;

##</code><code>##

my $filename = $ARGV[0];
open(my $fh, '<:encoding(UTF-8)', $filename)); 
while (my $pdbline = <$fh>) {