got rid of the "~~" operator because it's considered experimental and emits a warning on newer versions of Perl