test.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env sh

sub=$(pcregrep -M '^sub prettify_hipchat {.*(\n|.)*?^}' hipchat-stfu.pl)

cat > prettify_hipchat.pl <<EOF
use strict;

$sub

1;
EOF

./test.pl

rm prettify_hipchat.pl