my $foo = "1. Blah 2. Blubb 3. more blah"; #### use Data::Dump; dd $foo; __END__ "1. Blah\n 2. Blubb\n 3. more blah" #### $Workflow[$i]{Body} =~ s/^\s+//mg; # g means global
## use Data::Dump; dd $foo; __END__ "1. Blah\n 2. Blubb\n 3. more blah" ##
## $Workflow[$i]{Body} =~ s/^\s+//mg; # g means global