Select Code to Download

#!perl -l

...

print firstdivergence 'axcd', 'abced'; # prints 1
print lastdivergence 'axcd', 'abced';  # prints 4