mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 08:12:48 +01:00
20 lines
287 B
Perl
Executable File
20 lines
287 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
|
|
@val = (
|
|
"aBaBaBBaa: aBaBaB: aBaBaB",
|
|
" message-ad : ",
|
|
"Message-Id blabla",
|
|
" aaaa : aaaaa BBBB",
|
|
" aaaa : aaa:aa BBBB",
|
|
"",
|
|
);
|
|
|
|
|
|
foreach $val (@val) {
|
|
$val = $val;
|
|
print "[$val]", "\n";
|
|
$val =~ s/^\s*(.+?):(.+)$/\U$1\E:$2/;
|
|
print "[$val]", "\n\n";
|
|
}
|