diff options
| -rw-r--r-- | challenge-090/abigail/perl/ch-1.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-090/abigail/perl/ch-1.pl b/challenge-090/abigail/perl/ch-1.pl index 8c82434993..16bb02d6e5 100644 --- a/challenge-090/abigail/perl/ch-1.pl +++ b/challenge-090/abigail/perl/ch-1.pl @@ -9,6 +9,12 @@ no warnings 'syntax'; use experimental 'signatures'; use experimental 'lexical_subs'; +# +# y/// does the required replacements, and returns the number +# of characters replaced -- which turns out to be the length +# of the sequence. So, we first print the length of the sequence, +# followed by the modified sequence. +# print y/TAGC/ATCG/, "\n", $_ while <>; __END__ |