or download this
#!/usr/bin/perl -l
...
"monday tuesday wednesday thursday friday saturday sunday" =~ m/\b($in
+put)\b(?{ print "[$1]" })(*FAIL)/i;
print join ' ', grep s/,//, split ' ', "monday tuesday wednesday thurs
+day friday saturday sunday" =~ s/\b($input)\b\K/,/igr;