my $text = do { local $/; <MAT> };