Select Code to Download

my ($activity, $machine, $requester) = /\|1\|(.*)\sfor\s(.*)\s\(reques
+ted by (.*)\)/;