如何在Perl中将人的全名解析为用户名？

#!/usr/bin/perl

use strict;
use warnings;

# 输入全名
my $full_name = "张三 李四";

# 使用正则表达式解析用户名
my ($first_name, $last_name) = split(' ', $full_name);
my $username = substr($first_name, 0, 1) . $last_name;

# 输出用户名
print "用户名: $username\n";