my $cat = (<DATA>);