#!/usr/bin/perl -p
s/\<WORKSHIFT\>([\w\s]+)\<\/WORKSHIFT\>/\{ inputbox\(\"$1\"\); \}/ig;