$ echo '"Add workflow, Delete workflow",resource1,Sat 04/25/09,manager1
"Updateworkflow, Delete workflow",resource2,Wed 04/15/09,manager2
"Retrieve workflow, Delete workflow",resource3,Sat 04/25/09,manager3
"Add workflow, Delete workflow",resource4,Wed 03/25/09,manager4
"Add workflow",resource5,Tue 04/14/09,manager5' | \
    perl -e'
        print for
            map substr( $_, 6 ),
            sort
            map join( "", ( m<,\w{3} (\d\d)/(\d\d)/(\d\d),> )[ 2,0,1 ], $_ ),
            <>
'
"Add workflow, Delete workflow",resource4,Wed 03/25/09,manager4
"Add workflow",resource5,Tue 04/14/09,manager5
"Updateworkflow, Delete workflow",resource2,Wed 04/15/09,manager2
"Add workflow, Delete workflow",resource1,Sat 04/25/09,manager1
"Retrieve workflow, Delete workflow",resource3,Sat 04/25/09,manager3