RosettaCodeData/Task/Run-length-encoding/Perl/run-length-encoding-1.pl

sub encode {
    shift =~ s/(.)\1*/length($&).$1/grse;
}

sub decode {
    shift =~ s/(\d+)(.)/$2 x $1/grse;
}
tasks a-s 2013-04-10 23:57:08 -07:00			`sub encode {`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`shift =~ s/(.)\1*/length($&).$1/grse;`
			`}`
tasks a-s 2013-04-10 23:57:08 -07:00
			`sub decode {`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`shift =~ s/(\d+)(.)/$2 x $1/grse;`
			`}`