use v5.14; my $pattern = qr/#.{10}#.{13}#\./ms; $_ = <