#!/usr/bin/perl use feature 'say'; use strict; use warnings; my $str = " a \n \n b\n"; say $str =~ s/^\s*|\s*$//mgr; $_ = " a \n\n b\n"; s/^\s*|\s*$//gm; print "$_\n";
IyEvdXNyL2Jpbi9wZXJsCnVzZSBmZWF0dXJlICdzYXknOwp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CgpteSAkc3RyID0gIiBhIFxuIFxuIGJcbiI7CnNheSAkc3RyID1+IHMvXlxzKnxccyokLy9tZ3I7CgokXyA9ICIgYSBcblxuIGJcbiI7CnMvXlxzKnxccyokLy9nbTsKcHJpbnQgIiRfXG4iOwo=
Standard input is empty
language:
Perl (perl 5.28.1)
created:
5 years ago
Discover > Sphere Engine API
The brand new service which powers Ideone!
Discover > IDE Widget
Widget for compiling and running the source code in a web browser!
