#!/usr/bin/perl
use strict;
use warnings;
no warnings 'uninitialized'; # prevents a warning on line 8
my $description = "Some descriptive text here^`my_username";
my ($desc, $username) = split("\^`", $description);
print "desc: $desc\n";
print "username: $username\n";
($desc, $username) = split(/\^`/, $description);
print "desc: $desc\n";
print "username: $username\n";
($desc, $username) = split("\\^`", $description);
print "desc: $desc\n";
print "username: $username\n";
__DATA__
desc: Some descriptive text here^`my_username
username:
desc: Some descriptive text here
username: my_username
desc: Some descriptive text here
username: my_username