sub read_spec($)
{
    my $filename = shift;
    local $/;
    open(my $fh, "<$filename") or die "Can't open filename";
    my $content = <$fh>;

    $content =~ s{\s+$}{}m;

    # ...
}