use strict; use warnings; my $fileStr = <